Programmer Power Tools/Programmer Power Tools.iso/ada/tritype.dum

Text File | 1988-03-25 | 219b | 8 lines

-- Dummy solution for Outside Assignment 2
-- Edit to become your real solution.
separate (TRITEST)
function TRITYPE(LEN1, LEN2, LEN3 : in INTEGER) return TRIANGLE is
begin
   return NOT_A_TRIANGLE;
end TRITYPE;